unit OrderModuleInterface;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type

  TOrderInfo=record
    OrderType:string;
    OrderID:string;
    DateTime:string;
    UserID:string;
    State:string;
  end;

  TAuditMsg=record
    PassAudit:boolean;
    AuditUserID:string;
    AuditMsg:string;
  end;

  IOrderBase=interface
    function InitOrder:boolean;
    function NewOrder:boolean;
    function EditOrder(const OInfo:TOrderInfo):boolean;
    function DelOrder(const OInfo:TOrderInfo):boolean;
    function ReShowOrder(const OInfo:TOrderInfo):boolean;
    function AuditOrder(const OInfo:TOrderInfo;AMsg:TAuditMsg):boolean;
    function SaveOrder:boolean;
    function GetOrderInfo(const OrderID:string):TOrderInfo;
  end;

  function CreateOrder(const ORDERID:string;AOwner:TComponent):TForm;

implementation

uses unQuoteForm;

function CreateOrder(const ORDERID:string;AOwner:TComponent):TForm;
begin
  if ORDERID ='ID_QUOTEFORM' then
    result:=TfrmQuote.Create(AOwner);
end;

end.
